با استفاده از این تابع می توانید بفهید که آیا کارت صدا در سیستم نصب شده است یا خیر

//(sound card - installed or not )
 
function waveOutGetNumDevs: UINT; stdcall; external "winmm.dll" name
"waveOutGetNumDevs";

به عنوان مثال

procedure TForm1.Button1Click(Sender: T);
begin
 if waveOutGetNumDevs > 0 then
   ShowMessage("Sound card is installed")
 else
   ShowMessage("Sound card is not installed")
end;